10 IFA=0THENA=1:LOAD"SHAKER",8,1
20 SYS 49152